From: Lars Ingebrigtsen <larsi@gnus.org>
Date: Tue, 9 Nov 2021 06:10:18 +0000 (+0100)
Subject: Don't create temporary files for <video>
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~16^2~4110^2~48
X-Git-Url: https://dgit.raspbian.org/%22http://www.example.com/cgi/%22/%22http:/www.example.com/cgi/%22?a=commitdiff_plain;h=430d12e3c0d83603596e5d61541973c731e4f983;p=emacs.git

Don't create temporary files for <video>

* lisp/net/shr.el (shr-tag-audio): Don't create a temporary file;
just update the DOM directly.
---

diff --git a/lisp/net/shr.el b/lisp/net/shr.el
index d5d6d63fdde..19d2d8a8e6b 100644
--- a/lisp/net/shr.el
+++ b/lisp/net/shr.el
@@ -1685,23 +1685,16 @@ The preference is a float determined from `shr-prefer-media-type'."
                          'webkit
 			 "Video"
                          (truncate (* (window-pixel-width) 0.8))
-                         (truncate (* (window-pixel-width) 0.8 0.75))))
-                (file (make-temp-file "shr" nil ".html")))
-            (run-at-time 1 nil (lambda ()
-                                 (ignore-errors
-                                   (delete-file file))))
+                         (truncate (* (window-pixel-width) 0.8 0.75)))))
             (insert
              (propertize
               " [video] "
               'display (list 'xwidget :xwidget widget)))
-            (with-temp-buffer
-              (insert
-               (format
-                "<video autoplay loop muted><source src=%S type=\"video/mp4\"></source></video>"
-                url))
-              (write-region (point-min) (point-max) file nil 'silent))
-            (xwidget-webkit-goto-uri widget
-                                     (concat "file://" file))))
+            (xwidget-webkit-execute-script
+             widget (format "document.body.innerHTML = %S;"
+                            (format
+                             "<video autoplay loop muted><source src=%S type='video/mp4\'></source></video>"
+                             url)))))
       ;; No xwidgets.
       (if (> (length image) 0)
 	  (shr-indirect-call 'img nil image)